;ҽiPurchase
<--! %userport = 05
<--! %psAmport = 06

;ʱ
<--! %transtime = 20110117010101
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;PSAMĿ¼
setreader %psAmport
reset
00 b0 96 00 06
;ն˻ţϢӦPSAMж
<--! %termno = @strmidh(%resp, 0, 6)
00 A4 00 00 02 DF01

;======û==========
setreader %userport
reset
<--! %sn1=@strmidh(%resp,@Strlen(%resp)-8,8)
;УPIN
00 20 00 00 03 123456

00A4000002DF04
;ȡ
B0 26 00 01 04

;Կ
<--! %Purchase_key_ID = 01
;CIA_AMT ʻ֧
<--! %sCIA_AMT = 00000000
;SPIP_AMT  Ը
<--! %SPIP_AMT = 00000000
;ͳ֧
<--! %SPFP_AMT = 00000000
;ն˻
<--! %termno

;Ǯѳʼ
B0 28 01 01 13 %Purchase_key_ID %sCIA_AMT %SPIP_AMT %SPFP_AMT %termno
;CLA
<--! %oldbalance = @strmidh(%resp, 0, 4)
;SPIP(Ը)
<--! %SPIP_AMT = @strmidh(%resp, 4, 4)
;SPFP(ͳ֧)
<--! %SPFP_AMT = @strmidh(%resp, 8, 4)
; ֧
<--! %syear = @strmidh(%resp, 12, 2)
;ҽѽ
<--! %sTransNo=@strmidh(%resp, 14, 2)
;Կ汾(DPK)
<--! %skeyID = @strmidh(%resp, 16, 1)
;㷨ʶ(DPK)
<--! %smathID=@strmidh(%resp, 17, 1)
;α
<--! %swrand=@strmidh(%resp, 18, 4)

;======PSAM==========
setreader %psamPort
;PSAMʼ MAC1   31Ȧ棬32
<--! %sdataPSAMINIT=%swrand + %sTransNo+%sCIA_AMT+%SPIP_AMT+%SPFP_AMT+32+%transtime+%skeyID+%smathID+%sn1
80 70 01 00 24 %sdataPSAMINIT
;ѻ
<--! %termtransno = @strmidh(%resp, 0, 4)
<--! %sMAC1 = @strmidh(%resp, 4, 4)
;======û==========
setreader %userPort
;ִ
B0 2C 01 00 0F %termtransno %transtime %sMAC1
;TAC
<--! %TAC = @strmidh(%resp, 0, 4)
;MAC2
<--! %MAC2 = @strmidh(%resp, 4, 4)
;======PSAM==========
setreader %psamPort
;ִPSAM
80 72 00 00 04 %MAC2
reccmptxt 9000
;======û==========
setreader %userPort
;ȡ
B0 26 00 01 04
;
;80 5a 00 05 02 %transno 08
;<--! %tacdata=%grzh+%grzf+%tcjj+32+%termno+%termxh+%transtime
;<--! %tac=@xortac(%DTK,%tacdata)